home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.06 Jun 90 / Timing Files / Test.MOD < prev    next >
Encoding:
Text File  |  1989-02-07  |  627 b   |  30 lines  |  [TEXT/MPS ]
  1. MODULE Test;
  2.  
  3. FROM Timer IMPORT TimeRec, InitTimer, StartTimer, StopTimer, MsValue, Compensation;
  4. FROM RealIO IMPORT WriteLongReal;
  5. FROM SimpleIO IMPORT WriteLongNum, WriteLn;
  6.  
  7. VAR    i: INTEGER;
  8.     t1, t2, t3: TimeRec;
  9.  
  10. PROCEDURE Dummy; BEGIN END Dummy;
  11.  
  12. BEGIN
  13.     Compensation := 0;
  14.     InitTimer (t1);
  15.     InitTimer (t2);
  16.     InitTimer (t3);
  17.     StartTimer (t3);
  18.     StartTimer (t1);
  19.     FOR i := 1 TO 100 DO END;
  20.     StopTimer (t1);
  21.     StartTimer (t2);
  22.     FOR i := 1 TO 100 DO Dummy END;
  23.     StopTimer (t2);
  24.     StopTimer (t3);
  25.     WriteLongReal (MsValue (t1), 16, 3);
  26.     WriteLongReal (MsValue (t2), 16, 3);
  27.     WriteLongReal (MsValue (t3), 16, 3);
  28.     WriteLn;
  29. END Test.
  30.